home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE07 / SERVER / LISTING1.SQL < prev    next >
Encoding:
Text File  |  1996-01-06  |  422 b   |  16 lines
  1. CONNECT "c:\iblocal\examples\myempl.gdb" 
  2.   USER "SYSDBA" PASSWORD "masterkey";
  3.  
  4. SET TERM ^;
  5.  
  6. CREATE PROCEDURE Get_Employee(EmpNo integer)
  7. RETURNS(First_Name varchar(15), Last_Name varchar(20), 
  8.         Phone_Ext varchar(4), Dept_No char(3))
  9. AS
  10. BEGIN
  11.   SELECT First_Name, Last_Name, Phone_Ext, Dept_No
  12.     FROM Employee
  13.     WHERE Emp_No = :EmpNo
  14.     INTO :First_Name, :Last_Name, :Phone_Ext, :Dept_No;
  15. END^
  16.